home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / dlibs12 / atol.c < prev    next >
C/C++ Source or Header  |  1990-11-23  |  425b  |  28 lines

  1. #include <stdio.h>
  2. #include <ctype.h>
  3.  
  4. long atol(number)
  5.     register char *number;
  6.     {
  7.     register long n = 0, neg = 0;
  8.  
  9.     while(isspace(*number))
  10.         ++number;
  11.     if(*number == '-')
  12.         {
  13.         neg = 1;
  14.         ++number;
  15.         }
  16.     else if(*number == '+')
  17.         ++number;
  18.     while(isdigit(*number))
  19.         n = (n * 10) + ((*number++) - '0');
  20.     return(neg ? -n : n);
  21.     }
  22.  
  23. int atoi(number)
  24.     char *number;
  25.     {
  26.     return((int) atol(number));
  27.     }
  28.